home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / internet-tools / connect-line / cl / rexx / modules / stdio.clrexxmod < prev   
Encoding:
Text File  |  1996-02-05  |  1.2 KB  |  76 lines
  1. /*
  2. **  $VER: stdio.clrexxmod 0.1 (18 Jan 1996)  **
  3. **
  4. **        © 1996 Ralf Ramge
  5. **
  6. **  PROGRAMNAME:
  7. **      stdio.clrexxmod
  8. **
  9. **  FUNCTION:
  10. **      clrexx-Modul für STDIO-Funktionen
  11. **
  12. **      Bisherige Funktionen:
  13. **          CURSORON
  14. **          CURSOROFF
  15. **
  16. **  $HISTORY:
  17. **
  18. **   18 Jan 1996 : 0.1 : initial release
  19. */
  20.  
  21. line=upper(arg(1))
  22. line=translate(line,' ',',')
  23. procname=word(line,1)
  24. if words(line)>1 then do
  25.     do argctr=1 to words(line)
  26.         param.argctr=word(line,argctr+1)
  27.         end
  28.     end
  29.  
  30. ctr=0
  31.  
  32. /* rexxsupport.library öffnen */
  33.  
  34. if ~show('L','rexxsupport.library') then do
  35.     if ~addlib('rexxsupport.library',0,-30,0) then exit 10
  36.     end
  37.  
  38. /* cl_rexx.library öffnen */
  39.  
  40. if ~show('L','cl_rexx.library') then do
  41.     if ~addlib('cl_rexx.library',0,-30,0) then exit 10
  42.     end
  43.  
  44. select
  45.     when procname='CURSOROFF' then interpret 'call' procname
  46.     when procname='CURSORON' then interpret 'call' procname
  47.     otherwise nop
  48.     end
  49.  
  50. exit
  51.  
  52. /* CURSOROFF
  53. **
  54. ** Beschreibung:
  55. **
  56. ** Diese Routine schaltet die Darstellung
  57. ** des Cursors ab.
  58. */
  59.  
  60. CURSOROFF:
  61. call writech STDOUT,'9b'x||'302070'x
  62. return
  63.  
  64. /* CURSORON
  65. **
  66. ** Beschreibung:
  67. **
  68. ** Diese Routine schaltet die Darstellung
  69. ** des Cursors ein.
  70. */
  71.  
  72. CURSORON:
  73. call writech 'STDOUT','9b'x||'2070'x
  74. return
  75.  
  76.